﻿Public Class TaskPathArg
    Public Item As ListViewItem
    Public Value As String

    Public Sub New(item As ListViewItem, value As String)
        Me.Item = item
        Me.Value = value
    End Sub

    Public Property DBOBJ As TaskList8
        Get
            Return CType(Item.Tag, TaskList8)
        End Get
        Set(value As TaskList8)
            Item.Tag = value
        End Set
    End Property
End Class
